home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPG10.ZIP / 662.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-08-16  |  2KB  |  202 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     Gosub LABEL006
  36.     Gosub LABEL001
  37.     End
  38.     :LABEL001
  39.     Gosub LABEL002
  40.     INTEGER001 = 1
  41.     Gosub LABEL005
  42.     BOOLEAN001 = 0
  43.     While (BOOLEAN001 == 0) Do
  44.         STRING001 = Asc(Inkey())
  45.         If (STRING001 == 13) Then
  46.             BOOLEAN001 = 1
  47.             Continue
  48.         Endif
  49.         If ((STRING001 == 76) || (STRING001 == 44)) Then
  50.             Gosub LABEL004
  51.             Dec INTEGER001
  52.             If (INTEGER001 < 1) INTEGER001 = 3
  53.             Gosub LABEL005
  54.             Continue
  55.         Endif
  56.         If ((STRING001 == 82) || (STRING001 == 46)) Then
  57.             Gosub LABEL004
  58.             Inc INTEGER001
  59.             If (INTEGER001 > 3) INTEGER001 = 1
  60.             Gosub LABEL005
  61.             Continue
  62.         Endif
  63.         If ((STRING001 == 89) || (STRING001 == 121)) Then
  64.             Gosub LABEL004
  65.             INTEGER001 = 1
  66.             Gosub LABEL005
  67.             BOOLEAN001 = 1
  68.             Continue
  69.         Endif
  70.         If ((STRING001 == 78) || (STRING001 == 110)) Then
  71.             Gosub LABEL004
  72.             INTEGER001 = 2
  73.             Gosub LABEL005
  74.             BOOLEAN001 = 1
  75.             Continue
  76.         Endif
  77.         If ((STRING001 == 65) || (STRING001 == 97)) Then
  78.             Gosub LABEL004
  79.             INTEGER001 = 3
  80.             Gosub LABEL005
  81.             BOOLEAN001 = 1
  82.         Endif
  83.     EndWhile
  84.     Gosub LABEL003
  85.     Return
  86.     :LABEL002
  87.     Print ReadLine(PPEPath() + "662.CFG", 1)
  88.     INTEGER002 = GetY()
  89.     INTEGER003 = GetX()
  90.     Print STRING003 + "  "
  91.     INTEGER004 = GetX()
  92.     Print STRING002 + "  "
  93.     INTEGER005 = GetX()
  94.     Print STRING004
  95.     Return
  96.     :LABEL003
  97.     Select Case (INTEGER001)
  98.         Case 1
  99.             KbdStuff "Y"
  100.         Case 2
  101.             Newline
  102.             Newline
  103.             KbdStuff "N"
  104.         Case 3
  105.             KbdStuff "A"
  106.     End Select
  107.     Return
  108.     :LABEL004
  109.     Select Case (INTEGER001)
  110.         Case 1
  111.             Print Chr(13)
  112.             Forward INTEGER003 - 1
  113.             Print STRING003
  114.         Case 2
  115.             Print Chr(13)
  116.             Forward INTEGER004 - 1
  117.             Print STRING002
  118.         Case 3
  119.             Print Chr(13)
  120.             Forward INTEGER005 - 1
  121.             Print STRING004
  122.     End Select
  123.     Return
  124.     :LABEL005
  125.     Select Case (INTEGER001)
  126.         Case 1
  127.             Print Chr(13)
  128.             Forward INTEGER003 - 1
  129.             Print STRING006
  130.         Case 2
  131.             Print Chr(13)
  132.             Forward INTEGER004 - 1
  133.             Print STRING005
  134.         Case 3
  135.             Print Chr(13)
  136.             Forward INTEGER005 - 1
  137.             Print STRING007
  138.     End Select
  139.     Return
  140.     :LABEL006
  141.     STRING003 = ReadLine(PPEPath() + "662.CFG", 2)
  142.     STRING002 = ReadLine(PPEPath() + "662.CFG", 3)
  143.     STRING004 = ReadLine(PPEPath() + "662.CFG", 4)
  144.     STRING006 = ReadLine(PPEPath() + "662.CFG", 5)
  145.     STRING005 = ReadLine(PPEPath() + "662.CFG", 6)
  146.     STRING007 = ReadLine(PPEPath() + "662.CFG", 7)
  147.     Return
  148.  
  149. ;------------------------------------------------------------------------------
  150. ;
  151. ; Usage report (before postprocessing)
  152. ;
  153. ; ■ Statements used :
  154. ;
  155. ;    1       End
  156. ;    28      Goto 
  157. ;    22      Let 
  158. ;    16      Print 
  159. ;    18      If 
  160. ;    15      Gosub 
  161. ;    6       Return
  162. ;    1       Inc 
  163. ;    1       Dec 
  164. ;    2       Newline
  165. ;    3       KbdStuff 
  166. ;    6       Forward 
  167. ;
  168. ;
  169. ; ■ Functions used :
  170. ;
  171. ;    9       +
  172. ;    6       -
  173. ;    21      ==
  174. ;    1       <
  175. ;    1       >
  176. ;    16      !
  177. ;    5       ||
  178. ;    6       Chr()
  179. ;    1       Asc()
  180. ;    1       Inkey()
  181. ;    7       PPEPath()
  182. ;    7       ReadLine()
  183. ;    3       GetX()
  184. ;    1       GetY()
  185. ;
  186. ;------------------------------------------------------------------------------
  187. ;
  188. ; Analysis flags : No flag
  189. ;
  190. ;------------------------------------------------------------------------------
  191. ;
  192. ; Postprocessing report
  193. ;
  194. ;    0       For/Next
  195. ;    1       While/EndWhile
  196. ;    6       If/Then or If/Then/Else
  197. ;    3       Select Case
  198. ;
  199. ;------------------------------------------------------------------------------
  200. ;                 AEGiS Corp - Break the routines, code against the machines!
  201. ;------------------------------------------------------------------------------
  202.